home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / FOR-3.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  296b  |  12 lines
  1. ' FOR-3.BAS
  2. ' This program uses a FOR loop and the COLOR statement
  3. '   to demonstrate the various foreground colors.
  4.  
  5. CLS
  6.  
  7. FOR i% = 1 TO 15         ' use colors 1 through 15
  8.     COLOR i%             ' use value of i% for color
  9.     PRINT "This line is printed using color"; i%
  10. NEXT i%
  11.  
  12.